home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / text / man36.lha / Man3.6 / Install < prev    next >
Encoding:
Text File  |  1995-02-18  |  3.3 KB  |  154 lines
  1. ;  *** Man installation scipt ***
  2.  
  3. (set #install-msg
  4. (cat "\n\nMan installation script.\n"
  5.      "This script installs the MAN commodity on your Amiga.\n\n"
  6.      "Read the documentation for\n"
  7.      "more information on the distribution\n"
  8.      "and commercial usage of Man.\n\n"
  9.      "Man © 1993-1995 Markus Hillenbrand\n"
  10.      "All rights reserved."
  11. ))
  12.  
  13. (set #bad-kick         "You must be using Kickstart 2.04 to install using this script!")
  14. (set #copying-reqtools "Copying reqtools.library to Libs:...")
  15.  
  16. (message #install-msg)
  17. (welcome "Welcome to the Man installation!")
  18.  
  19. (if (< (/ (getversion) 65536) 37)
  20. (
  21.     (abort #bad-kick)
  22. ))    
  23.  
  24. (if (exists "S:Man.cfg")
  25. (
  26.     (delete "S:Man.cfg")
  27. ))
  28.  
  29. (set reqtoolslib "libs20/reqtools.library")
  30. (set catalogdir  "catalogs/")
  31.  
  32. (copylib
  33.         (prompt "\n" #copying-reqtools)
  34.         (help @copylib-help)
  35.         (source reqtoolslib)
  36.         (dest "Libs:")
  37.         (confirm)
  38. ) 
  39.  
  40. (if (exists "SYS:WBStartUp/Man") (copylib   (prompt "\nInstalling Man-Commodity\n")
  41.                                   (help @copylib-help)
  42.                          (source "Man")
  43.                              (dest "SYS:WBStartUp")
  44.                              (confirm))
  45.                  (copyfiles (prompt "\nInstalling Man-Commodity\n")
  46.                                    (help @copyfile-help)
  47.                             (source "MAN")
  48.                             (dest "SYS:WBStartUp")
  49.                         (infos)
  50.                         (noposition)
  51.                             (confirm))
  52. )
  53.  
  54. (set #which-language "\nWhich languages should be installed?") 
  55. (set old_level @user-level)
  56. (set default_lang 2)
  57.  
  58. (if (exists "SYS:Locale")
  59. (
  60.     (if (exists "LOCALE:")
  61.     (
  62.         (user 1)
  63.         (set lang (askoptions (prompt #which-language)
  64.                                      (help     #which-language-help)
  65.                                      (choices
  66.                                          "Deutsch"
  67.                                          "English"
  68.                                          "Svenska")
  69.                                    (default default_lang)
  70.                      )
  71.         )
  72.         (user old_level)
  73.  
  74.         (set n 0)
  75.         (while (set language (select n
  76.                                         "deutsch"
  77.                                         "english"
  78.                                         "svenska"
  79.                                         ""))
  80.         (
  81.             (if (IN lang n)
  82.             (
  83.                 (if (<> 2 n)
  84.                 (
  85.                     (makedir (cat "LOCALE:Catalogs/" language))
  86.                     (copyfiles (source (cat catalogdir language))
  87.                                   (dest (cat "LOCALE:Catalogs/" language))
  88.                                   (all)
  89.                     )
  90.                 ))
  91.             ))
  92.             (set n (+ n 1))
  93.         ))
  94.     ))
  95. ))
  96.  
  97. (set #which-manpages "\nWhich man pages should be installed?") 
  98. (set #which-manhelp  "Specify the useful man pages")
  99. (set old_level @user-level)
  100. (set manpagedir "Pages/")
  101.  
  102. (
  103.    ;get destination dir for ManPages
  104.    (set mydest
  105.         (askdir
  106.                (prompt "Select the directory where you want to put the man pages:")
  107.                (help   "The directory where you store the man pages should be on a "
  108.                        "hard drive. A directory will NOT be created!!\n\n"
  109.                )
  110.                (default "Work:")
  111.                (disk)
  112.         )
  113.    )
  114.  
  115.     (user 1)
  116.     (set lang (askoptions (prompt #which-manpages)
  117.                                  (help     #which-manhelp)
  118.                                  (choices
  119.                                      "Man"
  120.                                      "Dir"
  121.                                      "DT2IFF"
  122.                                      "List"
  123.                                      "Which")
  124.                                      "Why"
  125.                  )
  126.     )
  127.     (user old_level)
  128.  
  129.     (set n 0)
  130.     (while (set language (select n
  131.                                     "Man.man"
  132.                                     "Dir.man"
  133.                                     "DT2IFF.man"
  134.                                     "List.man"
  135.                                     "Which.man"
  136.                                     "Why.man"
  137.                                     ""))
  138.     (
  139.         (if (IN lang n)
  140.         (
  141.             (if (<> 200 n)
  142.             (
  143.                 (makedir (cat "LOCALE:Catalogs/" language))
  144.                 (copyfiles (source (cat manpagedir language))
  145.                               (dest mydest)
  146.                               (all)
  147.                 )
  148.             ))
  149.         ))
  150.         (set n (+ n 1))
  151.     ))
  152. )
  153.  
  154.